﻿Option Explicit On
Option Strict On

''' <summary>
''' Clase concepto: Para almacenar datos de un concepto
''' </summary>
''' <author>Jose Manuel Rizo</author>

Public Class Concepto

    Private _codigo_servicio As Integer
    Private _codigo_cita As Integer

    Public Sub New()
        _codigo_servicio = 0
        _codigo_cita = 0

    End Sub

    Public Sub New(ByVal codigoservicio As Integer, ByVal codigocita As Integer)

        _codigo_servicio = codigoservicio
        _codigo_cita = codigocita

    End Sub

    Public Property CodigoServicio As Integer

        Get
            Return _codigo_servicio
        End Get
        Set(ByVal value As Integer)
            _codigo_servicio = value
        End Set
    End Property

    Public Property CodigoCita As Integer

        Get
            Return _codigo_cita
        End Get
        Set(ByVal value As Integer)
            _codigo_cita = value
        End Set
    End Property

    'Desctructores
    Public Sub Dispose()

        _codigo_servicio = -1
        _codigo_cita = -1

    End Sub

    Protected Overrides Sub Finalize()

        _codigo_servicio = -1
        _codigo_cita = -1

    End Sub

End Class
